home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / regmax / mainform.frm < prev    next >
Text File  |  1995-01-02  |  8KB  |  279 lines
  1. VERSION 2.00
  2. Begin Form MAINFORM 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "GBLIB2.EXE Demonstration. Press F1 for Help"
  6.    ClientHeight    =   1350
  7.    ClientLeft      =   2700
  8.    ClientTop       =   3915
  9.    ClientWidth     =   5850
  10.    Height          =   2040
  11.    Icon            =   MAINFORM.FRX:0000
  12.    Left            =   2640
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   1350
  16.    ScaleWidth      =   5850
  17.    Top             =   3285
  18.    Width           =   5970
  19.    Begin CommandButton btn_ReadRegData 
  20.       Caption         =   "Read &EXE Information"
  21.       FontBold        =   -1  'True
  22.       FontItalic      =   0   'False
  23.       FontName        =   "Arial"
  24.       FontSize        =   9
  25.       FontStrikethru  =   0   'False
  26.       FontUnderline   =   0   'False
  27.       Height          =   495
  28.       Left            =   3480
  29.       TabIndex        =   4
  30.       Top             =   720
  31.       Width           =   2235
  32.    End
  33.    Begin CommandButton btn_WriteRegData 
  34.       Caption         =   "Write E&XE Information"
  35.       FontBold        =   -1  'True
  36.       FontItalic      =   0   'False
  37.       FontName        =   "Arial"
  38.       FontSize        =   9
  39.       FontStrikethru  =   0   'False
  40.       FontUnderline   =   0   'False
  41.       Height          =   495
  42.       Left            =   3480
  43.       TabIndex        =   1
  44.       Top             =   120
  45.       Width           =   2235
  46.    End
  47.    Begin CommandButton btn_SYSDIR 
  48.       Caption         =   "&SYSDIR"
  49.       FontBold        =   0   'False
  50.       FontItalic      =   0   'False
  51.       FontName        =   "Arial"
  52.       FontSize        =   9
  53.       FontStrikethru  =   0   'False
  54.       FontUnderline   =   0   'False
  55.       Height          =   495
  56.       Left            =   2160
  57.       TabIndex        =   3
  58.       Top             =   720
  59.       Width           =   1215
  60.    End
  61.    Begin CommandButton btn_WINDIR 
  62.       Caption         =   "&WINDIR"
  63.       FontBold        =   0   'False
  64.       FontItalic      =   0   'False
  65.       FontName        =   "Arial"
  66.       FontSize        =   9
  67.       FontStrikethru  =   0   'False
  68.       FontUnderline   =   0   'False
  69.       Height          =   495
  70.       Left            =   2160
  71.       TabIndex        =   0
  72.       Top             =   120
  73.       Width           =   1215
  74.    End
  75.    Begin CommandButton btn_MakeAKey 
  76.       Caption         =   "Ma&keakey"
  77.       FontBold        =   0   'False
  78.       FontItalic      =   0   'False
  79.       FontName        =   "Arial"
  80.       FontSize        =   9
  81.       FontStrikethru  =   0   'False
  82.       FontUnderline   =   0   'False
  83.       Height          =   495
  84.       Left            =   840
  85.       TabIndex        =   2
  86.       Top             =   720
  87.       Width           =   1215
  88.    End
  89.    Begin CommandButton btn_Exit 
  90.       Cancel          =   -1  'True
  91.       Caption         =   "E&xit"
  92.       FontBold        =   -1  'True
  93.       FontItalic      =   0   'False
  94.       FontName        =   "Arial"
  95.       FontSize        =   9.75
  96.       FontStrikethru  =   0   'False
  97.       FontUnderline   =   0   'False
  98.       Height          =   495
  99.       Left            =   840
  100.       TabIndex        =   5
  101.       Top             =   120
  102.       Width           =   1215
  103.    End
  104.    Begin Label lbl_Copyright 
  105.       Alignment       =   2  'Center
  106.       BackColor       =   &H00C0C0C0&
  107.       Caption         =   "(c)1995 [GB]"
  108.       Height          =   435
  109.       Left            =   60
  110.       TabIndex        =   6
  111.       Top             =   720
  112.       Width           =   735
  113.       WordWrap        =   -1  'True
  114.    End
  115.    Begin Image img_Icon 
  116.       BorderStyle     =   1  'Fixed Single
  117.       Height          =   510
  118.       Left            =   180
  119.       Picture         =   MAINFORM.FRX:0302
  120.       Top             =   120
  121.       Width           =   510
  122.    End
  123.    Begin Menu mfile 
  124.       Caption         =   "&File"
  125.       Begin Menu mfile_Exit 
  126.          Caption         =   "E&xit"
  127.       End
  128.       Begin Menu mfile_About 
  129.          Caption         =   "&About"
  130.       End
  131.    End
  132. End
  133. Option Explicit
  134.  
  135. '   /* Modified 31/12/94 [GB] */
  136. '   /* Created 31/12/94 [GB] */
  137.  
  138. '   //Form variable for messages//
  139. Dim msg As String
  140.  
  141. Sub btn_Exit_Click ()
  142.  
  143. '   /* Modified 30/12/94 [GB] */
  144. '   /* Created 30/12/94 [GB] */
  145. End
  146.  
  147. End Sub
  148.  
  149. Sub btn_MakeAKey_Click ()
  150.  
  151. '   /* Modified 31/12/94 [GB] */
  152. '   /* Created 31/12/94 [GB] */
  153.  
  154. Dim Answer As Long
  155. Dim sz As String
  156. sz = InputBox$("Type in a string", "MakeAKey Demo", "Gordon Bamber")
  157.  
  158. '   //Simple function. Possible crosscheck on USERNAME/USERORG? //
  159.  
  160. '   //Result has to be a Long Integer Type//
  161. Answer = MakeAKey(sz)
  162. MsgBox "Key generated is " & Format$(Answer), 64, "MakeAKey"
  163.  
  164. End Sub
  165.  
  166. Sub btn_ReadRegData_Click ()
  167.  
  168.  
  169. '   /* Modified 31/12/94 [GB] */
  170. '   /* Created 31/12/94 [GB] */
  171.  
  172. '   //Read the data into the two GLOBALs//
  173. '   //Quit out in development mode//
  174. If IsVBRunning() = 0 Then
  175.     GetDataFromEXE
  176. Else
  177.     DevMsg
  178.     Exit Sub
  179. End If
  180.  
  181. '   //Reading a 'virgin' EXE file?//
  182. If USERNAME = "UNLICENSED" Or USERNAME = "" Then
  183.     MsgBox "This is an unbranded version of REGMAX", 64 + 4096, "Registration Information"
  184.     Exit Sub
  185. End If
  186.  
  187. '   //Display embedded registration information//
  188. msg = "This software was registered" & Chr$(10)
  189. msg = msg & "on: " & BRANDDATE & Chr$(10)
  190. msg = msg & "to: " & USERNAME & Chr$(10)
  191. msg = msg & "of: " & USERORG
  192. MsgBox msg, 64 + 4096, "Registration Information"
  193. End Sub
  194.  
  195. Sub btn_SYSDIR_Click ()
  196.  
  197. '   /* Modified 30/12/94 [GB] */
  198. '   /* Created 30/12/94 [GB] */
  199.  
  200. '   //A use for this would be in help/support, where//
  201. '   //you could show the client where his windows directory is//
  202. ShowSysDir
  203.  
  204. End Sub
  205.  
  206. Sub btn_WINDIR_Click ()
  207.  
  208. '   /* Modified 30/12/94 [GB] */
  209. '   /* Created 30/12/94 [GB] */
  210.  
  211. '   //A use for this would be in help/support, where//
  212. '   //you could show the client where his windows directory is//
  213. ShowWinDir
  214. End Sub
  215.  
  216. Sub btn_WriteRegData_Click ()
  217.  
  218. '   /* Modified 30/12/94 [GB] */
  219. '   /* Created 30/12/94 [GB] */
  220.  
  221. '   //Quit out in development mode//
  222. If IsVBRunning() <> 0 Then
  223.     DevMsg
  224.     Exit Sub
  225. End If
  226.  
  227. '   //Hide the main form//
  228. Me.Hide
  229. '   //Show regform non-modally//
  230. regform.Show
  231.  
  232. End Sub
  233.  
  234. Sub Form_Load ()
  235. '   /* Modified 02/01/95 [GB] */
  236.  
  237. '   //Place the form correctly on the screen//
  238. Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
  239.  
  240. '   //Skip the following if in development mode//
  241. If IsVBRunning() = 0 Then
  242.     '   //Get the GLOBALS//
  243.     GetDataFromEXE
  244.     '   //Is it a 'virgin' EXE? //
  245.     If USERNAME = "UNLICENSED" Then
  246.     MsgBox "This is an unlicensed copy of REGMAX", 64 + 4096, "Registration Information"
  247.     Exit Sub
  248.     End If
  249.     
  250.     '   //Display embedded registration information//
  251.     msg = "This software was registered" & Chr$(10)
  252.     msg = msg & "on: " & BRANDDATE & Chr$(10)
  253.     msg = msg & "to: " & USERNAME & Chr$(10)
  254.     msg = msg & "of: " & USERORG
  255.     MsgBox msg, 64 + 4096, "Registration Information"
  256.     btn_WriteRegData.Enabled = False
  257. End If
  258. End Sub
  259.  
  260. Sub mfile_About_Click ()
  261.  
  262. '   /* Modified 03/01/95 [GB] */
  263. '   /* Created 03/01/95 [GB] */
  264. msg = "The REGMAX/GBLIB2 Project" & Chr$(10) & Chr$(10)
  265. msg = msg & "Source code Copyright" & Chr$(10)
  266. msg = msg & "(c)1994/5 Gordon Bamber" & Chr$(10) & Chr$(10)
  267. msg = msg & "Distributed to Visual Basic V3.0" & Chr$(10)
  268. msg = msg & "developers as FREEWARE"
  269. MsgBox msg, 64, "About"
  270. End Sub
  271.  
  272. Sub mfile_Exit_Click ()
  273.  
  274. '   /* Modified 03/01/95 [GB] */
  275. '   /* Created 03/01/95 [GB] */
  276. End
  277. End Sub
  278.  
  279.